home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / systems / atari / birkhahn-metafont-packed-disks / mf27-2_2e-disk2.zoo / inputs / wasy.lzs / WASY.STY < prev    next >
Text File  |  1992-02-17  |  6KB  |  172 lines
  1. % wasy.sty as of 17 Feb 1992 by Martin Wallmeier
  2. %
  3. % needs NFSS (New Font Selection Scheme by Mittelbach/Sch\"opf)
  4. %
  5. % the following name conflicts with AMS-Fonts (defined in amssymb.sty)
  6. % resolved by prepending `wasy' before the names:
  7. %
  8. %    \lozenge   --> \wasylozenge
  9. %    \therefore --> \wasytherefore
  10. %    \varpropto --> \wasyvarpropto
  11.  
  12. \@ifundefined{selectfont}
  13.      {\@latexerr{`wasy' style option can only be used
  14.                   with the new font selection scheme}\@eha
  15.       \endinput}{}
  16. \new@fontshape{wasy}{m}{n}{%
  17.    <5>wasy5%
  18.    <6>wasy6%
  19.    <7>wasy7%
  20.    <8>wasy8%
  21.    <9>wasy9%
  22.    <10>wasy10%
  23.    <11>wasy10 at10.95pt%
  24.    <12>wasy10 at12pt%
  25.    <14>wasy10 at14.4pt%
  26.    <17>wasy10 at17.28pt%
  27.    <20>wasy10 at20.74pt%
  28.    <25>wasy10 at 24.88pt}{}
  29. \def\wasy{\family{wasy}\series{m}\shape{n}\selectfont}
  30.  
  31. \font\tenwasy = wasy10
  32. \font\sevenwasy = wasy7
  33. \font\fivewasy = wasy5
  34. \newfam\wasyfam
  35. \newcount\wasyfamcount
  36. \wasyfamcount=\wasyfam \multiply\wasyfamcount by 256
  37. \def\wasy{\fam\wasyfam\tenwasy}
  38. \textfont\wasyfam=\tenwasy
  39. \scriptfont\wasyfam=\sevenwasy
  40. \scriptscriptfont\wasyfam=\fivewasy
  41. %%%%%% special macro
  42. \def\overstrike#1#2{{\setbox0\hbox{$#2$}\hbox to \wd0{\hss
  43.     $#1$\hss}\kern-\wd0\box0}}
  44. %%%%%% special symbols
  45. \def\male{\hbox{\wasy\char26}}
  46. \def\female{\hbox{\wasy\char25}}
  47. \def\currency{{\wasy\char27}}
  48. \def\phone{{\wasy\char7}}
  49. \def\recorder{{\wasy\char6}}
  50. \def\clock{{\wasy\char28}}
  51. \def\lightning{{\wasy\char18}}
  52. \def\pointer{{\wasy\char9}}
  53. \def\RIGHTarrow{{\wasy\char17}}
  54. \def\LEFTarrow{{\wasy\char16}}
  55. \def\UParrow{{\wasy\char75}}
  56. \def\DOWNarrow{{\wasy\char76}}
  57. \def\AC{\hbox{\kern0.5pt\wasy\char58\kern0.5pt}}
  58. \def\HF{\lower0.9pt\hbox to 0pt{\kern0.5pt\wasy\char58\hss}%
  59.         \raise0.9pt\hbox{\kern0.5pt\wasy\char58\kern0.5pt}}
  60. \def\VHF{\hbox{\wasy\char64}}
  61. \def\Box{\hbox{\wasy\char50}}\let\Square\Box
  62. \def\XBox{\hbox{\wasy\char52}}
  63. \def\Diamond{\hbox{\wasy\char51}}
  64. \def\hexagon{\hbox{\wasy\char55}}
  65. \def\pentagon{\hbox{\wasy\char68}}
  66. \def\octagon{\hbox{\wasy\char56}}
  67. \def\varhexagon{\hbox{\wasy\char57}}
  68. \def\hexstar{\hbox{\wasy\char65}}
  69. \def\varhexstar{\hbox{\wasy\char66}}
  70. \def\davidsstar{\hbox{\wasy\char67}}
  71. \def\diameter{\hbox{\wasy\char31}}
  72. \def\invdiameter{\hbox{\wasy\char21}}
  73. \def\varangle{\hbox{\wasy\char30}}
  74. \def\wasylozenge{\hbox{\wasy\char53}}
  75. \def\kreuz{\hbox{\wasy\char54}}
  76. \def\smiley{\hbox{\wasy\char1}}
  77. \def\frownie{\hbox{\wasy\char4}}
  78. \def\blacksmiley{\hbox{\wasy\char2}}
  79. \def\sun{\hbox{\wasy\char3}}
  80. \def\checked{\hbox{\wasy\char8}}
  81. \def\bell{\hbox{\wasy\char10}}
  82. \def\eighthnote{\hbox{\wasy\char11}}
  83. \def\quarternote{\hbox{\wasy\char12}}
  84. \def\halfnote{\hbox{\wasy\char13}}
  85. \def\fullnote{\hbox{\wasy\char14}}
  86. \def\twonotes{\hbox{\wasy\char15}}
  87. \def\brokenvert{\hbox{\wasy\char124}}
  88. \def\wasytherefore{\hbox{\wasy\char5}}
  89. \def\Circle{\hbox{\wasy\char35}}
  90. \def\CIRCLE{\hbox{\wasy\char32}}
  91. \def\Leftcircle{\hbox{\wasy\char73}}
  92. \def\LEFTCIRCLE{\hbox{\wasy\char71}}
  93. \def\Rightcircle{\hbox{\wasy\char74}}
  94. \def\RIGHTCIRCLE{\hbox{\wasy\char72}}
  95. \def\LEFTcircle{\hbox to 0pt{\wasy\char71\hss}\hbox{\wasy\char35}}
  96. \def\RIGHTcircle{\hbox to 0pt{\wasy\char72\hss}\hbox{\wasy\char35}}
  97. %%%%%% astronomy
  98. \def\aries{\hbox{\wasy\char23}}
  99. \def\ascnode{\hbox{\wasy\char19}}
  100. \def\descnode{\hbox{\wasy\char20}}
  101. \def\fullmoon{\hbox{\wasy\char35}}
  102. \def\newmoon{\hbox{\wasy\char32}}
  103. \def\leftmoon{\hbox{\wasy\char36}}
  104. \def\rightmoon{\hbox{\wasy\char37}}
  105. \def\astrosun{\hbox{\tensy\char12}}
  106. \def\mercury{\hbox{\wasy\char39}}
  107. \def\venus{\raise0.2ex\hbox{\wasy\char25}}
  108. \def\earth{\lower0.3ex\hbox{\wasy\char38}}
  109. \def\mars{\lower0.2ex\hbox{\wasy\char26}}
  110. \def\jupiter{\hbox{\wasy\char40}}
  111. \def\saturn{\hbox{\wasy\char41}}
  112. \def\uranus{\hbox{\wasy\char42}}
  113. \def\neptune{\hbox{\wasy\char43}}
  114. \def\pluto{\hbox{\wasy\char48}}
  115. %%%%%% APL characters
  116. \def\APLstar{{\hbox{\wasy\char69}}}
  117. \def\APLlog{{\hbox{\wasy\char22}}}
  118. \def\APLbox{{\hbox{\wasy\char126}}}
  119. \def\APLup{{\hbox{\wasy\char0}}}
  120. \def\APLdown{{\hbox{\wasy\char70}}}
  121. \def\APLinput{{\hbox{\wasy\char125}}}
  122. \def\APLcomment{{\hbox{\wasy\char127}}}
  123. \def\APLinv{{\hbox to 0pt{\tensy\char4\hss}\APLbox}}
  124. \def\APLuparrowbox{{\hbox{\wasy\char110}}}
  125. \def\APLdownarrowbox{{\hbox{\wasy\char111}}}
  126. \def\APLleftarrowbox{{\hbox{\wasy\char112}}}
  127. \def\APLrightarrowbox{{\hbox{\wasy\char113}}}
  128. \def\notbackslash{\overstrike{\backslash}{-}}
  129. \def\notslash{\overstrike{/}{-}}
  130. \def\APLnot#1{\overstrike{\sim}{#1}}
  131. \def\APLcirc#1{\overstrike{\circ}{#1}}
  132. \def\APLvert#1{\overstrike{\vert}{#1}}
  133. \def\APLminus{\raise0.7ex\hbox{$-$}}
  134. %%%%%% diagrams
  135. \def\photon{\hbox{\wasy\char58\char58\char58\char58}}
  136. \def\gluon{\hbox{\wasy\char81\char80\char80\char80%
  137.     \char80\char80\char80\char82}}
  138. %%%%%% math characters
  139. \def\Bowtie{\hbox{\wasy\char49}}
  140. \def\leftturn{\hbox{\wasy\char34}}
  141. \def\rightturn{\hbox{\wasy\char33}}
  142. %%%%%% math operators as mathchars
  143. \def\wasymathchardef#1#2{%
  144.     \count255=\wasyfamcount
  145.     \advance\count255 by#1
  146.     \mathchardef#2\count255}
  147. \wasymathchardef{12332}{\lhd}
  148. \wasymathchardef{12334}{\rhd}
  149. \wasymathchardef{12304}{\LHD}
  150. \wasymathchardef{12305}{\RHD}
  151. \wasymathchardef{12333}{\unlhd}
  152. \wasymathchardef{12335}{\unrhd}
  153. \wasymathchardef{12348}{\sqsubset}
  154. \wasymathchardef{12349}{\sqsupset}
  155. \wasymathchardef{12350}{\apprle}
  156. \wasymathchardef{12351}{\apprge}
  157. \wasymathchardef{12317}{\wasyvarpropto}
  158. \wasymathchardef{24}{\invneg}
  159. \wasymathchardef{12347}{\leadsto}
  160. \wasymathchardef{8227}{\ocircle}
  161. \wasymathchardef{12310}{\logof}
  162. \wasymathchardef{4210}{\varint}
  163. \wasymathchardef{4211}{\iint}
  164. \wasymathchardef{4212}{\iiint}
  165. \wasymathchardef{4213}{\varoint}
  166. \wasymathchardef{4214}{\oiint}
  167. %
  168. %%%%%% new definitions
  169. %
  170. \def\newpropto{\let\propto\wasyvarpropto}
  171. \def\newint{\let\int\varint \let\oint\varoint} % default limits
  172.